home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
011
/
ffix0531.arc
/
CVAR0530.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-03-25
|
11KB
|
359 lines
' $SUBTITLE: 'Arrays passed between various components of CONFIG.BAS'
' $PAGE
DEFINT A-Z
'
' The following arrays are passed between the various subroutines
' within RBBS-PC's configuration program, CONFIG.
'
DIM A$(10)
DIM FILES.FUNCTION(8) ' Files menu security
DIM FILES.FUNCTION$(8,2) ' Base-line file system commands
DIM GLOBAL.FUNCTION(4) ' Global commands security
DIM GLOBAL.FUNCTION$(4,2) ' Global commands
DIM HELP$(9) ' Help file names
DIM MAIN.FUNCTION(18) ' Main menu security
DIM MAIN.FUNCTION$(18,2) ' Base-line message system commands
DIM MENU$(7) ' Menu file names
DIM SYSOP.FUNCTION(7) ' Sysop menu security
DIM SYSOP.FUNCTION$(7,2) ' Base-line SYSOP commands
DIM DNLD$(99) ' Download Sub-Dirs
DIM UTILITY.FUNCTION(12) ' Utility menu security
DIM UTILITY.FUNCTION$(12,2) ' Base-line utility system commands
DIM LIBRARY.FUNCTION(7) ' Library menu security
DIM LIBRARY.FUNCTION$(7,2) ' Base-line Library system commands
' $SUBTITLE: 'Variables passed between various components of CONFIG.BAS'
' $PAGE
'
' The following variables are passed between the various and
' seperately compiled subroutines used by CONFIG.BAS.
'
COMMON SHARED _
A$(), _
ACT.MNTHS.B4.DELETING, _
ACTIVE.BULLETINS, _
ALLOW.CALLER.TURBO, _
ALTDIR.EXTENSION$, _
ALWAYS.STREW.TO$, _
ANS.MENU$, _
ASK.IDENTITY, _
AUTO.ADD.SECURITY, _
AUTO.ADD.SECURITY$, _
AUTODOWNLOAD$, _
BAUDOT, _
BAUDOT$, _
BG, _
BORDER, _
BUFFER.SIZE, _
BULLETIN.MENU$, _
BULLETIN.PREFIX$, _
BULLETINS.OPTIONAL, _
BYPASS, _
BYPASS.MSGS, _
BYPASS.SECURITY, _
BYPASS$, _
C$, _
CALLBACK.VERIFICATION, _
CALLBACK.VERIFICATION$, _
CALLERS.FILE$, _
COM.PORT$, _
COMMANDS.BETWEEN.RINGS, _
COMMANDS.IN.PROMPT, _
COMMENTS.AS.MESSAGES, _
COMMENTS.FILE$, _
COMPUTER.TYPE, _
COMPUTER.TYPE$, _
CONFERENCE.MENU$, _
CONFERENCE.MODE, _
CONFERENCE.VIEWER.SEC.LVL, _
CONFIG.FILENAME$, _
CONFIG.VERSION$, _
D$, _
DD$, _
DAYS.IN.SUBSCRIPTION.PERIOD, _
DAYS.TO.WARN, _
DEFAULT.CATEGORY.CODE$, _
DEFAULT.ECHOER$, _
DEFAULT.LINE.ACK$, _
DEFAULT.SECURITY.LEVEL, _
DIR.CATEGORY.FILE$,_
DIRECTORY.EXTENTION$, _
DIRECTORY.PATH$, _
DIRECTORY.PREFIX$, _
DISK.FOR.DOS$, _
DISKFULL.GO.OFFLINE, _
DNLD.SUB, _
DOORS.AVAILABLE, _
DOORS.SECURITY.LEVEL, _
DOORS.TERMINAL.TYPE, _
DOS.VERSION, _
DOSANSI, _
DOWNLOAD.DRIVES$, _
DOWNLOAD.TO.SUBDIR, _
DRIVE.FOR.BULLETINS$, _
DRIVES.FOR.DOWNLOADS$, _
DRIVE.FOR.HELP.FILES$, _
DRIVE.FOR.UPLOADS$, _
DTR.DROP.DELAY, _
DUMB.MODEM, _
END.OFFICE.HOURS, _
ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
EPILOG$, _
EXPERT.USER, _
EXPERT.USER$, _
EXPIRED.SECURITY, _
EXTENDED.LOGGING, _
F7.MESSAGE$, _
FALSE, _
FC, _
FG, _
FILE$, _
FILE.OF.CATEGORIES$, _
FILES.FUNCTION(), _
FILES.FUNCTION$(), _
FILE.NOTIFY, _
FILE.NOTIFY$, _
FILE.COMMANDS$, _
FILE.COMMANDS.DEFAULTS$, _
FILESEC.FILE$, _
FIRST.NAME.PROMPT$, _
FMS.DIRECTORY$ , _
FREESPACE.UPLOAD.FILE$, _
GB, _
GLOBAL.COMMANDS$, _
GLOBAL.COMMANDS.DEFAULTS$, _
GLOBAL.FUNCTION(), _
GLOBAL.FUNCTION$(), _
GO.TO.SHELL, _
GO.TO.SHELL$, _
HALT.ON.ERROR$, _
HASH.ID$, _
HELP$(),_
HELP.EXTENSION$, _
HELP.FILE.PREFIX$, _
HELP.PATH$, _
HIDDEN, _
HJ$, _
HOST.ECHO.OFF$, _
HOST.ECHO.ON$, _
IB, _
ILOOKUP, _
INCLUDE.EXTENTION, _
INCLUDE.EXTENTION$, _
INDIV.ID$, _
IPAGE, _
IX, _
KEEP.INIT.BAUD, _
KEEP.TIME.CREDITS, _
KSTACKED$, _
LAST.NAME.PROMPT$, _
LEN.HASH, _
LEN.INDIV, _
LIBRARY.ARCHIVE.PATH$, _
LIBRARY.ARCHIVE.PROGRAM$, _
LIBRARY.COMMANDS$, _
LIBRARY.COMMANDS.DEFAULTS$, _
LIBRARY.DIRECTORY.PATH$, _
LIBRARY.DIRECTORY.EXTENTION$, _
LIBRARY.DRIVE$, _
LIBRARY.FUNCTION(), _
LIBRARY.FUNCTION$(), _
LIBRARY.MAX.DISK, _
LIBRARY.MAX.DIRECTORY, _
LIBRARY.MAX.SUBDIR, _
LIBRARY.SUBDIR.PREFIX$, _
LIBRARY.WORK.DISK.PATH$, _
LIMIT.DAILY.TIME, _
LIMIT.SEARCH.TO.FMS, _
LOCAL.PASSWORD$
COMMON SHARED _
M$, _
M11$, _
M14$, _
M22$, _
M23$, _
M24$, _
M25$, _
M26$, _
MAIN.FUNCTION(), _
MAIN.FUNCTION$(), _
MAIN.COMMANDS$, _
MAIN.COMMANDS.DEFAULTS$, _
MAIN.MESSAGE.BACKUP$, _
MAIN.MESSAGE.FILE$, _
MAIN.PUI$, _
MAIN.USER.FILE$, _
MASTER.DIRECTORY.NAME$, _
MAX.ALLOWED.MSGS.FRM.DEF, _
MAX.DESC.LEN, _
MAX.MESSAGE.LINES, _
MAX.MSG.FILE.SIZE.FRM.DEF!, _
MAX.PER.DAY, _
MAX.USR.FILE.SIZE.FRM.DEF, _
MAXD, _
MAXIMUM.DISPLAYABLE.PAGES, _
MAXIMUM.NUMBER.OF.NODES, _
MAXIMUM.PASSWORD.CHANGES, _
MAXIMUM.VIOLATIONS, _
MENU$(), _
MENUS.CAN.PAUSE, _
MESSAGE.REMINDER, _
MIN.NEWCALLER.BAUD, _
MIN.OLDCALLER.BAUD, _
MIN.SEC.TO.VIEW, _
MINIMUM.LOGON.SECURITY, _
MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
MINUTES.PER.SESSION!, _
MLCOM, _
MM, _
MN1$, _
MN2$, _
MNP.SUPPORT, _
MO$, _
MODEM.ANSWER.COMMAND$, _
MODEM.COMMAND.DELAY.TIME, _
MODEM.COUNT.RINGS.COMMAND$, _
MODEM.GO.OFFHOOK.COMMAND$, _
MODEM.INIT.BAUD$, _
MODEM.INIT.COMMAND$, _
MODEM.INIT.WAIT.TIME, _
MODEM.RESET.COMMAND$, _
MUSIC, _
NET.MAIL$, _
NETWORK.TYPE, _
NETWORK.TYPE$, _
NEW.FILES.CHECK, _
NEW.USER.BELL, _
NEW.USER.BELL$, _
NEW.USER.CASE, _
NEW.USER.CASE$, _
NEW.USER.DEFAULT.MODE, _
NEW.USER.DEFAULT.MODE$, _
NEW.USER.DEFAULT.PROTOCOL$, _
NEW.USER.GRAPHICS$, _
NEW.USER.LINE.FEEDS, _
NEW.USER.LINE.FEEDS$, _
NEW.USER.MARGINS, _
NEW.USER.NULLS, _
NEW.USER.NULLS$, _
NEW.USER.PREFERENCES, _
NEW.USER.PREFERENCES$, _
NEW.USER.QUESTIONNAIRE$, _
NEWUSER.FILE$, _
NEWUSER.PROMPT$, _
NEWUSER.SETS.DEFAULTS, _
NODE.ID$, _
NONE.PICKED$, _
NOT.YET.IN$, _
NUM.FILES, _
NUM.GLOBAL, _
NUM.LIBRARY, _
NUM.MAIN, _
NUM.SYSOP, _
NUM.UTILITY, _
OKAY, _
OMIT.MAIN.DIRECTORY$, _
OPTION$, _
OVERWRITE.SECURITY.LEVEL, _
PAGE.LENGTH, _
PAGING.PRINTER.SUPPORT$, _
PASSWORD.FILE$, _
PCJR, _
PERSONAL.BEGIN, _
PERSONAL.CONCAT, _
PERSONAL.DIR$, _
PERSONAL.DRVPATH$, _
PERSONAL.LEN, _
PERSONAL.PROTOCOL$, _
PRELOG$, _
PRIVATE.READ.SEC, _
PROMPT.BELL, _
PROMPT.BELL$, _
PROMPT.HASH$, _
PROMPT.INDIV$, _
PROTOCOL.PATH$, _
PS, _
PUBLIC.READ.SEC, _
QUES.PATH$, _
RBBS.BAT$, _
RBBS.NAME$, _
RCTTY.BAT$, _
RECYCLE.TO.DOS, _
RECYCLE.TO.DOS$, _
RECYCLE.WAIT, _
REDIRECT.IO.METHOD, _
REGISTRATION.PROGRAM$, _
REMEMBER.NEW.USERS, _
REMIND.FILE.TRANSFERS, _
REMIND.PROFILE, _
REQUIRE.NON.ASCII, _
REQUIRED.QUESTIONNAIRE$, _
REQUIRED.RINGS, _
RESTRICT.BAUD, _
RESTRICT.BAUD$, _
RESTRICT.BY.DATE, _
RESTRICT.VALID.CMDS, _
RTS$, _
SEC.CHANGE.MSG, _
SEC.LVL.EXEMPT.FRM.PURGING, _
SECURITY.EXEMPT.FROM.EPILOG, _
SF, _
SHOOT.YOURSELF, _
SHOW.SECTION, _
SIZE.OF.STACK, _
SL.CATEGORIZE.UPLOADS, _
START.HASH, _
START.INDIV, _
START.OFFICE.HOURS, _
SUBROUTINE.PARAMETER, _
SURVIVE.NOUSER.ROOM, _
SWITCH.BACK, _
SYSOP.COMMANDS$, _
SYSOP.COMMANDS.DEFAULTS$, _
SYSOP.FIRST.NAME$, _
SYSOP.FUNCTION(), _
SYSOP.FUNCTION$(), _
SYSOP.LAST.NAME$, _
SYSOP.MENU.SECURITY.LEVEL, _
SYSOP.PASSWORD.1$, _
SYSOP.PASSWORD.2$, _
SYSOP.SECURITY.LEVEL, _
TB$, _
TIME.TO.DROP.TO.DOS, _
TRASHCAN.FILE$, _
TRUE, _
TURBO.RBBS, _
TURN.PRINTER.OFF, _
UE, _
UNIQUE.USER.FIND$, _
UNIQUE.USER.ID$, _
UPCAT.HELP$, _
UPLOAD.DIRECTORY$, _
UPLOAD.PATH$, _
UPLOAD.SUBDIR$, _
UPLOAD.TIME.FACTOR!, _
UPLOAD.TO.SUBDIR, _
USE.BASIC.WRITES, _
USE.DEVICE.DRIVER, _
USE.EXTERNAL.XMODEM, _
USE.EXTERNAL.YMODEM, _
USER.FIRMWARE.CLEAR.CMND$, _
USER.INITIALIZE.COMMAND$, _
USER.FIRMWARE.WRITE.CMND$, _
USER.LOCATION$ , _
UTIL.COMMANDS$, _
UTIL.COMMANDS.DEFAULTS$, _
UTILITY.FUNCTION(), _
UTILITY.FUNCTION$(), _
WAIT.BEFORE.DISCONNECT, _
WELCOME.FILE$, _
WELCOME.INTERRUPTABLE, _
WILL.SUBDIRS.B.USED, _
WRAP.CALLERS.FILE, _
WRAP.CALLERS.FILE$, _
XON.XOFF
' ******************************************************************
' * Functions common to modules *
' ******************************************************************
DEF FNYESNO$(TORF) = MID$("NOYES",1-2*TORF,2-TORF)
DEF FNYESNO(STRNG$) = (LEFT$(STRNG$,1) = "Y")